let heading = int_of_string Sys.argv.(1);; 
let speed = float_of_string  Sys.argv.(2);;
let gheading = int_of_string Sys.argv.(3);;

let main () =
  let result = Vmg.vmg (heading,speed,gheading) in 
    print_string (string_of_float result) ; print_newline () 
;;

main () ;;

